﻿<!-- #include virtual="/Inc/conn.asp"-->
<!-- #include virtual="/Inc/md5.asp"-->
<!-- #include virtual="/Inc/function.asp"-->
<!-- #include virtual="/Inc/config.asp"-->
<!-- #include virtual="/Inc/Admin/common.asp"-->
<%
Dim isopen:isopen=0
Dim ischeck:ischeck=0
exec="select top 1 * from db_gbconfig"
set rs=server.Createobject("adodb.recordset")
rs.open exec,conn,1,1
	isopen = rs("isopen")
	ischeck = rs("ischeck")
rs.close

if isopen=true then isopen=1
if ischeck=true then ischeck=1

if isopen=1 then
%>
<table width="680" border="1" align="center" bordercolor="#C2D1DE">
  <tr>
    <td bgcolor="#C2D1DE"><center class="STYLE1"><a href="add.asp" target="_blank" class="STYLE1">签写留言</a> </center></td>
  </tr>
</table>

<table width="680" border="0" align="center">
  <tr>
    <td height="3"></td>
  </tr>
</table>
<%
if ischeck=1 then
	exec= "SELECT * FROM db_guestbook where ischeck=1"
else
	exec= "SELECT * FROM db_guestbook"
end if
rs.open exec,conn,1,1
if rs.EOF and rs.BOF then
	response.write ("暂时还没有文章")
else
rs.PageSize=7
fycs=rs.PageCount              '指示 Recordset 中一页所包含的记录数
page=int(request("page"))           '使用 pageCount 属性可确定 Recordset 对象中数据的页数
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page               '指定当前记录所在的页
for i=1 to rs.PageSize
if rs.EOF then exit for
response.write("<table width='680' border='1' align='center' bordercolor='#C2D1DE' bgcolor='#F4F7F9'>")
response.write("<td width='150'>留言人ID:"& rs("id"))
response.write("</td>")
response.write("<td width='150'>姓名:"& rs("name"))
response.write("</td>")
response.write("<td>留言时间:"& rs("time"))
response.write("</td>")
response.write("<td width='150'>留言人IP:"& rs("ip"))
response.write("</td></tr>")
response.write("<tr><td colspan='4'>留言内容:"& rs("Content"))
response.write("</td></tr>")
response.write("</table>")

response.write("<table width='680' border='0' align='center'><tr><td height='3'></td></tr></table>")
   rs.MoveNext
next
end if
rs.close
%>

　<p align="center">
<% if page=1 and not page=fycs Then %>
第一页|上一页|
<a href="index.asp?page=<%=page+1%>">下一页</a>|
<a href="index.asp?page=<%=fycs%>">最后页</a>|
<% elseif page<>1 and not page=fycs Then%>
<a href="index.asp?page=1">第一页</a>|
<a href="index.asp?page=<%=page-1%>">上一页</a>|
<a href="index.asp?page=<%=page+1%>">下一页</a>|
<a href="index.asp?page=<%=fycs%>">最后页</a>|
<% elseif page=fycs then%>
<a href="index.asp?page=1">第一页</a>|
<a href="index.asp?page=<%=page-1%>">上一页</a>|
下一页|
最后页
<% End If %>
　</p>
<%
else
	Response.Write "<p>留言板未开放！</p>"
end if
%>